TAN Function

 Action

 Returns the tangent of the angle  x, where  x is in radians.

 Syntax


  TAN( x)


 Remarks

 The tangent of an angle in a right triangle is the ratio between the length
 of the side opposite an angle and the length of the side adjacent to it.

  TAN is calculated in single precision if  x is an integer or
 single-precision value. If you use any other numeric data type,  TAN is
 calculated in double precision.

 To convert values from degrees to radians, multiply the angle (in degrees)
 times -180

 (or .0174532925199433). To convert a radian value to degrees, multiply it by
 180-

  (or 57.2957795130824). In both cases,   3.141593.

 BASICA

 In BASICA, if  TAN overflows, the interpreter generates an error message
 that reads Overflow, returns machine infinity as the result, and continues
 execution.

 If  TAN overflows, BASIC does not display machine infinity and execution
 halts (unless the program has an error-handling routine).

 See Also

  ATN,  COS,  SIN

 Example

 The following example computes the height of an object using the distance
 from the object and the angle of elevation. The program draws the triangle
 produced by the base and the computed height.

 SCREEN 2' CGA screen mode.

 INPUT "LENGTH OF BASE. ",Baselen
 INPUT "ANGLE OF ELEVATION (DEGREES,MINUTES). ",Deg,Min

 Ang = (3.141593-180) * (Deg + Min-60)' Convert to radians.
 Height = Baselen * TAN(Ang)' Calculate height.
 PRINT "HEIGHT =" Height
 Aspect = 4 * (200 - 640) - 3' Screen 2 is 640 x 200 pixels.
 H = 180 - Height
 B = 15 + (Baselen - Aspect)
 LINE (15,180)-(B,180)' Draw triangle.
 LINE -(B,H)
 LINE -(10,180)
 LOCATE 24,1 . PRINT "Press any key to continue...";
 DO
 LOOP WHILE INKEY$=""